partir :: [a] -> [([a],[a])]
partir l = [(take cant l, drop cant l) | cant <- [0.. length l]]